home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / utility / fwzm.zip / FWZIPMAN.FW3 (.txt) < prev    next >
FrameworkDocument  |  1990-11-15  |  30KB  |  613 lines
  1. ;Choose "Help" for help
  2. ; FWZIP Manager  
  3.     ; by Gary Reger
  4.         ;VERSION 
  5. 90-11-13
  6. ;                    (c) copyright claimed
  7. ;reset ending and help locate variables that need to be zero at start
  8. FWZipMan.GV.fwzforceend:=0,
  9. fwzipman.gv.fwzhelploc:=0,
  10. fwzipman.gv.fwzhelpbail,
  11. ;clean desktop
  12. @echo(#off),
  13. @pk("{menu#dc}"),
  14. @setselection("fwzipman"),
  15. @pk("{ctrl-out}{return}{ctrl-out}"),
  16. @echo(#on),
  17. @FWZipMan.FWZMenu,
  18. @echo(#off),
  19. @if(@iserr(@isdocument("FWZdoc")),
  20.                 @beep(0,0),
  21.                 @delete("FWZDOC")),
  22. @echo(#on,2),
  23. @ERASEPROMPT,
  24. @echo(#on),
  25. @keyfilter({all}),
  26. @prompt(" FWZIP Manager off. Save FWZipMan.fw3, if you changed any settings.")
  27.  FWZIP Man
  28. FWZipMan; FWZIP Manager version 1.00 BETA
  29. FWZipMan - FWZIP Manager version 1.00
  30.                     --- By Gary N. Reger
  31. gv.fwzhelploc:=1,
  32. @menu(fwzMenu),
  33. @eraseprompt,
  34. @beep(1000,1)
  35. FWZMenu
  36. FWZipMan
  37. @SR.mc.FWZhm,
  38. @setselection("fwzipman")
  39. FW Zip Manager Report
  40. @SR.mc.FWZFUNC,
  41. @setselection("fwzipman")
  42. Zip Functions
  43. FWZipMan
  44. @SR.mc.FWZU,
  45. @setselection("fwzipman")
  46. Utlitites
  47. #TBD!
  48. @setselection("fwzipman"),
  49. @quitmenu
  50. Quit 
  51. SR; Program sub-routines
  52. 'z't'
  53. c; common
  54. #TRUE
  55. @echo(#off),
  56. @pk("{ctrl-out}"),
  57. @pk("{menu#dc}"),
  58. @setselection("fwzipman"),
  59. @pk("{ctrl-out}{return}")
  60. fwzcleandesk
  61. @echo(#off),
  62. ;create window/name
  63. @pk("{menu#ce}Zip Manager Window{return}"),
  64. ;position/size window
  65. @pk("{F3}{ctrl-home}{return}"),
  66. @pk("{F4}{end}" &@rept("{dnarrow}",10) &"{return}"),
  67. @echo(#on,2)
  68. k("{F4}{
  69. fwccreatewindow
  70. @echo(#off),
  71. @eraseprompt,
  72. @prompt(" Opening Disk Cabinet To Display Existing Zip files In Your Directory"),
  73.     ; identify drive for files
  74. @pk("{ctrl-out}"),
  75. ;directory/drive info
  76.     ;preserve old
  77. GV.fwzolddrive:=@setdrive,
  78. GV.fwzolddir:=@setdirectory,
  79.     ;get/set new drive/path
  80. GV.fwzUFdrive:=@mid(gv.fwzufpath,1,2),
  81. @setdrive(GV.fwzUFdrive),
  82. @setdirectory(Gv.fwzufpath),
  83. @setselection(GV.fwzUFdrive),
  84. @pk("{ctrl-out}"),
  85.     ; clear any filter /set zip filter
  86. @pk("{f2}{home}{f6}{end}{return}"),
  87. GV.fwzoldfilter:=@textselection,
  88. @pk("{del}*.zip{return}"),
  89. @memavail,
  90. ;position filtered disk
  91. @pk("{f3}{ctrl-home}{end}{return}"),
  92. @pk("{f4}{ctrl-end}{return}"),
  93. @beep(440,1),
  94. @eraseprompt,
  95. @echo(#on,2)
  96. fwzopenzipdir
  97. @eraseprompt,
  98. @prompt("  Re-setting disk cabinet."),
  99. @echo(#off),
  100. ;reset drive/directory
  101. @pk("{ctrl-out}"),
  102. @setdrive(GV.fwzolddrive),
  103. @setdirectory(GV.fwzolddir),
  104. @setselection("FWZipMan"),
  105. @pk("{scroll-lock}"),
  106. ;put back any cab filter
  107. @pk("{ctrl-out}"),
  108. @pk("{f2}{home}{f6}{end}{return}{del}" &GV.fwzoldfilter &"{return}{esc}{esc}"),
  109. @setselection("fwzipman"),
  110. @echo(#on),
  111. @echo(#off)
  112. fwzrestoredisk
  113. ;clean desktop
  114. @eraseprompt,
  115. @pk("{esc}{esc}"),
  116. @pk("{ctrl-out}"),
  117. @prompt(" Cleaning up desktop"),
  118. @echo(#off),
  119. @pk("{menu#dc}"),
  120. ;rename window
  121. @pk("{ctrl-out}"),
  122. @setselection("Zip Manager Window"),
  123. @pk("{ctrl-out}"),
  124. @pk("FW Zip Manager Report"),
  125. @pk("{return}"),
  126. @setselection("FW Zip Manager Report"),
  127. @pk("{ctrl-in}{ctrl-out}"),
  128. @setselection("FWZipMan"),
  129. @pk("{ctrl-in}{ctrl-out}"),
  130. @echo(#on,2),
  131. @beep(1000,1),
  132. @beep(2000,1),
  133. @eraseprompt,
  134. @prompt(" Zip function completed; Report on desktop.")
  135. eprompt,
  136. fwzrestoredesk
  137. mc; menu choices
  138. f'`'Z'
  139. @if(gv.fwzhelploc=0, gv.fwzhelploc:=2),
  140. @menu(fwzhm)
  141. fwzhm; Help sub-menu
  142. FW Zip Manager Report
  143. @eraseprompt,
  144. @echo(#off),
  145. ;begin selected initial common subroutines
  146. @SR.c.fwzcleandesk,
  147. @SR.c.fwccreatewindow,
  148. ;set run string for this choice
  149. @local(runn),
  150. runn:=gv.fwzuepath &"\pkzip.exe -h ",
  151. @run(Zip Manager Window,runn,#false),
  152. ; end help
  153. @nextkey(0),
  154. @memavail,
  155. @SR.c.fwzrestoredesk,
  156. @setselection("fwzipman")
  157. PKzip Help
  158. FWZdoc
  159. gv.fwzhelpcall:=1,
  160. @SR.mc.FWZH.FWZhlpcaller,
  161. gv.fwzhelpcall:=0,
  162. @setselection("fwzipman")
  163. FWZipManager Help
  164. #TBD!
  165. @setselection("fwzipman"),
  166. @quitmenu
  167. Quit 
  168. N'2','&' '
  169. gv.fwzhelploc:=3,
  170. @menu(FWZFUNC),
  171. gv.fwzhelploc:=1
  172. elploc:=3
  173. FWZFUNC; Zip functions Sub-menu
  174. J'D'>'8'
  175. Utlitites
  176. #TBD!
  177. @eraseprompt,
  178. @echo(#off),
  179. ;begin selected initial common subroutines
  180. @c.fwzcleandesk,
  181. @c.fwccreatewindow,
  182. @c.fwzopenzipdir,
  183. ;return
  184. ;get selected zip file
  185. @eraseprompt,
  186. @beep(50,1),
  187. GV.fwzZIPFILE:=@inputline(" Zip file to list. You may cursor point (If you do, LEAVE drive/path)",,#yes),
  188. ;set run string for this choice
  189. @local(runn,ROLLO),
  190. runn:=gv.fwzuepath &"\pkzip.exe -v " &GV.fwzZIPFILE,
  191. @if(GV.fwzUroll="Y",rollo:=#true,rollo:=#false),
  192. @run(Zip Manager Window,runn,rollo),
  193. ; select end common modes
  194. @c.fwzrestoredisk,
  195. @c.fwzrestoredesk,
  196. @quitmenu
  197. #TBD!
  198. @eraseprompt,
  199. @echo(#off),
  200. ;begin selected initial common subroutines
  201. @c.fwzcleandesk,
  202. @c.fwccreatewindow,
  203. @c.fwzopenzipdir,
  204. ;return
  205. ;get selected zip file
  206. @eraseprompt,
  207. @beep(50,1),
  208. GV.fwzZIPFILE:=@inputline(" Zip file to list. You may cursor point ( *!*  YOU MUST ENTER drive/path)",,#yes),
  209. ;set run string for this choice
  210. @local(runn,ROLLO),
  211. runn:=gv.fwzuepath &"\pkzip.exe -vb " &GV.fwzZIPFILE,
  212. @if(GV.fwzUroll="Y",rollo:=#true,rollo:=#false),
  213. @run(Zip Manager Window,runn,rollo),
  214. ; select end common modes
  215. @c.fwzrestoredisk,
  216. @c.fwzrestoredesk,
  217. @quitmenu
  218. Short
  219. #TBD!
  220. @SR.mc.FWZhm
  221. #TBD!
  222. @setselection("fwzipman"),
  223. @quitmenu
  224. Quit 
  225. @eraseprompt,
  226. @echo(#off),
  227. ;begin selected initial common subroutines
  228. @c.fwzcleandesk,
  229. @c.fwccreatewindow,
  230. @c.fwzopenzipdir,
  231. ;return
  232. ;get selected zip file
  233. @eraseprompt,
  234. @beep(50,1),
  235. GV.fwzZIPFILE:=@inputline(" Zip file name. You may cursor point ( *!*  YOU MUST ENTER drive/path)",,#yes),
  236. ;get file names to add to Zip 
  237. @local(zfiles),
  238. @eraseprompt,
  239. @beep(50,1),
  240. zfiles:=@inputline(" List files to add to Zip (list or use wildcard)",Gv.fwzufpath &"\"),
  241. ;set run string for this choice
  242. @local(runn,ROLLO),
  243. runn:=gv.fwzuepath &"\pkzip.exe -a " &GV.fwzZIPFILE &" " &zfiles,
  244. @if(GV.fwzUroll="Y",rollo:=#true,rollo:=#false),
  245. @run(Zip Manager Window,runn,rollo),
  246. ; select end common modes
  247. @c.fwzrestoredisk,
  248. @c.fwzrestoredesk
  249. ect end
  250. Create/Add
  251. @eraseprompt,
  252. @echo(#off),
  253. ;begin selected initial common subroutines
  254. @c.fwzcleandesk,
  255. @c.fwccreatewindow,
  256. @c.fwzopenzipdir,
  257. ;return
  258. ;get selected zip file
  259. @eraseprompt,
  260. @beep(50,1),
  261. GV.fwzZIPFILE:=@inputline(" Zip file name. You may cursor point ( *!*  YOU MUST ENTER drive/path)",,#yes),
  262. ;get file names to freshen in Zip 
  263. @local(zfiles),
  264. @eraseprompt,
  265. @beep(50,1),
  266. zfiles:=@inputline(" List files to freshen in Zip (list or use wildcard)",Gv.fwzufpath &"\*.*"),
  267. ;set run string for this choice
  268. @local(runn,ROLLO),
  269. runn:=gv.fwzuepath &"\pkzip.exe -f " &GV.fwzZIPFILE &" " &zfiles,
  270. @if(GV.fwzUroll="Y",rollo:=#true,rollo:=#false),
  271. @run(Zip Manager Window,runn,rollo),
  272. ; select end common modes
  273. @c.fwzrestoredisk,
  274. @c.fwzrestoredesk
  275. ect end common 
  276. Freshen
  277. @eraseprompt,
  278. @echo(#off),
  279. ;begin selected initial common subroutines
  280. @c.fwzcleandesk,
  281. @c.fwccreatewindow,
  282. @c.fwzopenzipdir,
  283. ;return
  284. ;get selected zip file
  285. @eraseprompt,
  286. @beep(50,1),
  287. GV.fwzZIPFILE:=@inputline("Zip file from which to extract. You may cursor point (Drive/path is required)",,#yes),
  288. ;get file names to extract from Zip 
  289. @local(zfiles),
  290. @eraseprompt,
  291. @beep(50,1),
  292. zfiles:=@inputline(" Files to extract from Zip (list or use wildcard), include destination path.","*.* " &gv.fwzufpath ),
  293. ;set run string for this choice
  294. @local(runn,ROLLO),
  295. runn:=gv.fwzuepath &"\pkunzip.exe " &GV.fwzZIPFILE &" " &zfiles,
  296. @if(GV.fwzUroll="Y",rollo:=#true,rollo:=#false),
  297. @run(Zip Manager Window,runn,rollo),
  298. ; select end common modes
  299. @c.fwzrestoredisk,
  300. @c.fwzrestoredesk
  301.  common m
  302. Extract
  303. @eraseprompt,
  304. @echo(#off),
  305. ;begin selected initial common subroutines
  306. @c.fwzcleandesk,
  307. @c.fwccreatewindow,
  308. @c.fwzopenzipdir,
  309. ;return
  310. ;get selected zip file
  311. @eraseprompt,
  312. @beep(50,1),
  313. GV.fwzZIPFILE:=@inputline(" Zip file name. You may cursor point ( *!*  YOU MUST ENTER drive/path)",,#yes),
  314. ;get file names to delete from Zip 
  315. @local(zfiles),
  316. @eraseprompt,
  317. @beep(50,1),
  318. zfiles:=@inputline(" List files to delete from Zip (list or use wildcard)"),
  319. ;set run string for this choice
  320. @local(runn,ROLLO),
  321. runn:=gv.fwzuepath &"\pkzip.exe -d " &GV.fwzZIPFILE &" " &zfiles,
  322. @if(GV.fwzUroll="Y",rollo:=#true,rollo:=#false),
  323. @run(Zip Manager Window,runn,rollo),
  324. ; select end common modes
  325. @c.fwzrestoredisk,
  326. @c.fwzrestoredesk
  327. ect end
  328. Delete
  329. @eraseprompt,
  330. @echo(#off),
  331. ;begin selected initial common subroutines
  332. @c.fwzcleandesk,
  333. @c.fwccreatewindow,
  334. @c.fwzopenzipdir,
  335. ;return
  336. ;get selected zip file
  337. @eraseprompt,
  338. @beep(50,1),
  339. ;GV.fwzZIPFILE:=@inputline(" Zip file name. You may cursor point ( *!*  YOU MUST ENTER drive/path)",,#yes),
  340. ;get file names to act on 
  341. @local(zfiles),
  342. @eraseprompt,
  343. @beep(50,1),
  344. ;zfiles:=@inputline(" Files to act on, if applicable (list or use wildcard); or {eturn}, if n/a",Gv.fwzufpath &"\"),
  345. ; get command
  346. @local(zcom),
  347. @eraseprompt,
  348. @beep(50,1),
  349. zcom:=@inputline(" Zip *.exe file and command and filenames - Make sure paths are correct: ",gv.fwzuepath &"\pkzip.exe -"),
  350. ;set run string for this choice
  351. @local(runn,ROLLO),
  352. runn:=zcom,
  353. @if(GV.fwzUroll="Y",rollo:=#true,rollo:=#false),
  354. @run(Zip Manager Window,runn,rollo),
  355. ; select end common modes
  356. @c.fwzrestoredisk,
  357. @c.fwzrestoredesk
  358. Other Command
  359. #TBD!
  360. @SR.mc.FWZhm
  361. #TBD!
  362. @setselection("fwzipman"),
  363. @quitmenu
  364. Quit 
  365. gv.fwzhelploc:=4,
  366. @menu(FWZU),
  367. gv.fwzhelploc:=1
  368. FWZU; Utilities Sub-Menu
  369. #TBD!
  370. @fwzsp
  371. Set Path
  372. @beep(880,1),
  373. @eraseprompt,
  374. GV.fwzUroll:=@inputline(" Roll-out To Dos (`Y' or `N') ?",GV.fwzUroll,,#yes)
  375. roll:=@i
  376. Roll-out?
  377. @eraseprompt,
  378. @echo(#off),
  379. ;begin selected initial common subroutines
  380. @c.fwzcleandesk,
  381. @c.fwzopenzipdir,
  382. ;return
  383. ;get selected zip file
  384. @eraseprompt,
  385. @beep(50,1),
  386. @local(key),
  387. @pk("{in}{home}"),
  388. @while(@key<>{esc},
  389.     @PROMPT(" Use Cursor/{KEYS} to Select/Copy-Move-Delete-Rename Zip files; {Esc} To end."),
  390.     @set(KEY,@keyname(@nextkey)),
  391.     @if(@key<>{esc},@pk(KEY))),
  392.  @echo(#off),
  393. ; select end common modes
  394. @pk("{ctrl-out}"),
  395. ;GV.fwzUFdrive:=@setselection,
  396. @c.fwzrestoredisk,
  397. @pk("{menu#dc}"),
  398. @echo(#on)
  399. @c.fwzres
  400. Act On Zip File
  401. #TBD!
  402. @SR.mc.FWZhm
  403. #TBD!
  404. @setselection("fwzipman"),
  405. @quitmenu
  406. Quit 
  407. gv.fwzhelploc:=5,
  408. @menu(fwzsp)
  409. fwzsp; Set Path sub-menu
  410. SCLINS.
  411. @beep(880,1),
  412. @eraseprompt,
  413. GV.fwzUEpath:=@inputline(" *FULL* DOS path to find Zip.exe files ? (e.g C:\Zips)",GV.fwzUEpath,,#yes)
  414. * DOS path to f
  415. Exe files for PKZip
  416. @beep(880,1),
  417. @eraseprompt,
  418. Gv.fwzufpath:=@inputline(" *FULL* DOS path to find/extract files to be zipped/unzipped ? (e.g. C:\FW)",GV.fwzUFpath,,#yes)
  419. tract file
  420. Zipped Files 
  421. @beep(880,1),
  422. @eraseprompt,
  423. Gv.fwzhelppath:=@inputline(" *FULL* DOS path to find FWZDOC.fw3 ? (e.g. C:\FW)",GV.fwzhelppath,,#yes)
  424. LL* DOS path to
  425. On-Line Help Files 
  426. #TBD!
  427. @SR.mc.FWZhm
  428. #TBD!
  429. @setselection("fwzipman"),
  430. @quitmenu
  431. Quit 
  432. FWZH; FWZipManager Help
  433. #TBD!
  434. @echo(#off),
  435. @pk("{ctrl-out}"),
  436. @memavail,
  437. @if(@iserr(@isdocument("FWZdoc")),
  438.                 @pk("{menu#dg}" &gv.fwzhelppath &"\FWZdoc.fw3{RETURN}")),
  439. ;position help
  440. @setselection("FWZDOC"),
  441. @position("fwzdoc",8,6,68,23),
  442. ;open/close subframes depending on screensize
  443. @local(ss),
  444. ss:=@screeninfo(1),
  445. @pk("{ctrl-out}"),
  446. @if(@frameview=6,@pk("{f10}")),
  447. @pk("{in}{home}{out}"),
  448. @pk("{menu#fo}"),
  449. @if(ss<34,@list(
  450.             @pk("{in}{home}"),
  451.             @pk("{dnarrow}{return}"),
  452.             @pk("{dnarrow}{dnarrow}{return}"),
  453.             @pk("{ctrl-out}"))),
  454. ;turn off search of labels
  455. @pk("{menu#ll}{del}{esc}"),
  456. @[FWZhlpprg],
  457. ;turn search of labels back on
  458. @pk("{menu#ll}{ctrl-return}{esc}"),
  459. @echo(#off),
  460. @setselection("FWZDOC"),
  461. ;open/close subframes depending on screensize
  462. @local(ss),
  463. ss:=@screeninfo(1),
  464. @pk("{ctrl-out}"),
  465. @if(@frameview=6,@pk("{f10}")),
  466. @pk("{in}{home}{out}"),
  467. @pk("{menu#fo}"),
  468. @if(ss<34,@list(
  469.             @pk("{in}{home}"),
  470.             @pk("{dnarrow}{return}"),
  471.             @pk("{dnarrow}{dnarrow}{return}"),
  472.             @pk("{ctrl-out}"))),
  473. ;@delete("FWZDOC"),
  474. @beep(440,1),
  475. @beep(880,1),
  476. @beep(880,1),
  477. @echo(#on,2),
  478. @eraseprompt,
  479. @prompt( " Help search completed. Now returning to FWZIP Manager Menu."),
  480. @beep(0,150),
  481. @if(gv.fwzhelpcall=0,@FWZipMan,gv.fwzhelpcall=0),
  482. @quitmenu
  483. @if(gv.fwz
  484. FWZhlpcaller
  485. #FALSE
  486. @if(GV.fwzforceend=1,@return(0)),
  487. @echo(#off),
  488. @pk("{ctrl-out}"),
  489. @pk("{menu#fo}"),
  490. @pk("{esc}"),
  491. @echo(#on),
  492. ; set help search default depending on menu level from where help is called
  493.     ; main menu level
  494. gv.fwzhelploc=1,
  495.     GV.FWZst:=@inputline(" Enter term to search for (Enter `Help Help' for help on using this Help).","Menu Help")
  496.     ; Help menu level
  497. gv.fwzhelploc=2,
  498.     GV.FWZst:=@inputline(" Enter term to search for (Enter `Help Help' for help on using this Help).","Help Help")
  499.     ; Zip Functions menu level
  500. gv.fwzhelploc=3,
  501.     GV.FWZst:=@inputline(" Enter term to search for (Enter `Help Help' for help on using this Help).","Zip Functions Help")
  502.     ; Utilities menu level
  503. gv.fwzhelploc=4,
  504.     GV.FWZst:=@inputline(" Enter term to search for (Enter `Help Help' for help on using this Help).","Utilities Help")
  505.     ; Set Path menu level
  506. gv.fwzhelploc=5,
  507.     GV.FWZst:=@inputline(" Enter term to search for (Enter `Help Help' for help on using this Help).","Set Path Help")
  508.     ; Any other situation
  509. gv.fwzhelploc=0,
  510.     GV.FWZst:=@inputline(" Enter term to search for (Enter `Help Help' for help on using this Help).")
  511. @echo(#off),
  512. @local(key),
  513. ;turn formula on in search menu
  514. @pk("{esc}{esc}"),
  515. @pk("{menu#LF}{ctrl-return}{esc}"),
  516. ; clear search/replace
  517. @pk("{esc}{esc}"),
  518. @pk("{menu#LS}{esc}{del}{esc}{esc}"),
  519. @pk("{menu#LR}{esc}{del}{esc}{esc}{esc}"),
  520. ;re-set search num counter
  521. GV.FWZsrnum:=0,
  522. ;re-set search place last find variables
  523. GV.fwzhelplframe:=@setselection,
  524. GV.fwzhelplline:=@panel2,
  525. GV.fwzhelplchar:=@panel1,
  526. @isabend(#false),
  527. @nextkey(0),
  528. @local(endx,srloop),
  529. endx:=0,
  530. gv.fwzhelpbail:=0,
  531. @while(@and(endx<>1,gv.fwzhelpbail=0),    
  532.         @echo(#off),
  533.         @SETSELECTION("FWZdoc"),
  534.         @pk("{f9}{ctrl-out}{ctrl-out}"),
  535.         @ERASEPROMPT, 
  536.         @echo(#off),
  537.         srloop:=0,
  538.         @while(srloop=0,
  539.             @isabend(#false),
  540.             @if(srloop=0,@pk("{menu#LS}" &GV.FWZst &"{return}")),
  541.             @if(@isabend=#true,@pk("{esc}")),
  542.             @if(@isabend=#true,@list(srloop:=1,@fwzh.fwzhlpnot),srloop:=1),
  543.             @if(srloop=1,@if(GV.FWZsrnum>0,@pk(@rept("{dnarrow}",GV.FWZsrnum))))),
  544.         GV.FWZsrnum:=GV.FWZsrnum+1,
  545. ;        @if(@frameview=5,@pk("{ctrl-in}{f9}")),
  546.         @pk("{leftarrow}{f9}{f6}{ctrl-rightarrow}{return}"),
  547.         @echo(#on,2),
  548.         @echo(#off),
  549.         @echo(#on,2),
  550.         @beep(1000,1),
  551.         @beep(1000,1),
  552.         @beep(1000,1),
  553.         @if(
  554.             @and(@setselection=GV.fwzhelplframe,
  555.                      @panel2=GV.fwzhelplline,
  556.                      @panel1=GV.fwzhelplchar),
  557.                  endx:=1),
  558.         GV.fwzhelplframe:=@setselection,
  559.         GV.fwzhelplline:=@panel2,
  560.         GV.fwzhelplchar:=@panel1,
  561.         @if(@key={esc},endx:=1),
  562.         @beep(0,100),
  563.             @while(@and(gv.fwzhelpbail=0,@key<>{Ctrl-0}),
  564.             @ERASEPROMPT, 
  565.             @PROMPT(" Read-Scroll-Navigate as usual ///  {Ctrl-0} for next ; {Esc}{Ctrl-0} to end."),
  566.             @set(KEY,@keyname(@nextkey)),
  567.              @if(@key<>{CTRL-0},@pk(KEY)),
  568.             @if(@key={Esc},endx:=1),
  569.             @isabend(#false)))
  570. (KEY)),
  571. FWZhlpprg
  572. @echo(#off),
  573. ;@pk("{esc}{esc}"),
  574. ;@pk("{ctrl-out}"),
  575. @echo(#on,2),
  576. @eraseprompt,
  577. @beep,
  578. @beep,
  579. @inputline(" Search term not found, try again; Press {return} to continue."),
  580. gv.fwzhelpbail:=1
  581. fwzhlpnot
  582. GV; Global Variables
  583. fwzhelppath
  584. ",{BA
  585. fwzUEpath
  586. fwzUFpath
  587. fwzUEdrive
  588. fwzUFdrive
  589. \zips\
  590. fwzUEdir
  591. \zips
  592. fwzUFdir
  593. fwzUroll
  594. fwzolddrive
  595. fwzolddir
  596. fwz*.*      
  597. fwzoldfilter
  598. C:\FW\DOC.ZIP
  599. \FWZM
  600. fwzZIPFILE
  601. Set Path Help
  602. fwzst
  603. FWZsrnum
  604. fwzhelploc
  605. fwzhelpcall
  606. FWZdoc.Operating Instructions.Menu Choices.[Utilities Menu ->
  607. Special FWZIP Manager functions]
  608. fwzhelplframe
  609. fwzhelpbail
  610. fwzhelplline
  611. fwzhelplchar
  612. fwzforceend
  613.